home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs15.d81 / mathquiz (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  83 lines
  1. 0 REM*******************************
  2. 1 REM**       MATH QUIZ           **
  3. 2 REM**                           **
  4. 3 REM**          BY               **
  5. 4 REM**     STEVE MOERSCHELL      **
  6. 5 REM*******************************
  7. 6 PRINT"[147]DO YOU WANT A PRINTOUT OF MISTAKES Y[146]/N[146]"
  8. 7 GET GP$:IFGP$=""THEN7
  9. 10 PRINT"[147]"TAB(16)"MATH QUIZE":PRINTTAB(16)"[197][197][197][197][197][197][197][197][197]"
  10. 20 PRINT"  + ADDITION":PRINT"  - SUBTRACTION":PRINT"  X MULTIPLICATION"
  11. 30 INPUT"  ENTER CHOICE (+,-,X) =";G$
  12. 40 IFG$="+"THEN100
  13. 50 IFG$="-"THEN120
  14. 60 IFG$="X"THEN140
  15. 70 GOTO30
  16. 100 C$=CHR$(43)
  17. 110 GOTO200
  18. 120 C$=CHR$(45)
  19. 130 GOTO200
  20. 140 C$=CHR$(88)
  21. 200 INPUT"  HOW MANY DIGITS 1,2 OR 3";A
  22. 210 IFA>3ORA<1THEN200
  23. 220 IFA=1THENK=9:IFA=1THENL=1
  24. 230 IFA=2THENK=99:IFA=2THENL=10
  25. 240 IFA=3THENK=999:IFA=3THENL=100
  26. 300 FORT=1TO10
  27. 310 X=INT(RND(1)*(K-L))+L
  28. 320 Z=INT(RND(1)*(K-L))+L
  29. 330 IFG$="-"THEN350
  30. 340 GOTO400
  31. 350 IFZ<XTHEN310
  32. 400 Z$=STR$(Z):X$=STR$(X)
  33. 410 IFG$="-"THENW=Z-X
  34. 420 IFG$="+"THENW=Z+X
  35. 430 IFG$="X"THENW=Z*X
  36. 440 PRINT"[147]  USE CRSR => TO CHANGE INPUT"
  37. 450 PRINT""TAB(11)Z:PRINTTAB(10)C$;X
  38. 460 PRINT"  ";:FORP=0TOA:PRINTTAB(11)"[210]";:NEXTP:PRINT
  39. 470 GG=0:WA$=STR$(W):WW=LEN(WA$):XX=WW:PP=11+A
  40. 480 GG=GG+1
  41. 490 PRINT""TAB(PP)"[166]";:GETGQ$:PRINT"[157][157] ";:IFGQ$=""THEN490
  42. 500 PRINTGQ$;:LL$(GG)=GQ$:PP=PP-1
  43. 510 IFGQ$=CHR$(13)THEN540
  44. 520 IFGQ$=CHR$(29)THENGG=GG-2:IFGQ$=CHR$(29)THENPP=PP+2
  45. 530 GOTO480
  46. 540 GB=GG:GG=0:WG=WW+1:QQ=WW-1
  47. 550 FORGG=1TOQQ
  48. 560 WG=WG-1
  49. 570 IFGB>WWTHEN700
  50. 580 WQ$=MID$(WA$,WG,1)
  51. 590 IFLL$(GG)<>WQ$THEN700
  52. 600 NEXTGG
  53. 610 U=U+1
  54. 620 PRINT"YOU ARE RIGHT"
  55. 630 FORR=1TO500:NEXTR
  56. 640 NEXTT
  57. 650 GOTO800
  58. 700 PRINT"SORRY THE ANSWER IS"W
  59. 710 B=B+1
  60. 720 P(B)=Z:M(B)=X:L(B)=W:YW$(B)=LL$(GG)
  61. 730 FORR=1TO1000:NEXTR
  62. 740 GOTO640
  63. 800 PRINT"[147]YOUR SCOR IS"
  64. 810 PRINT"  "U"RIGHT OUT OF 10"
  65. 820 IFU=10THEN900
  66. 825 IFGP$="N"THEN900
  67. 830 OPEN4,4
  68. 840 PRINT#4
  69. 850 H=B:B=0
  70. 860 FOR B=1TOH
  71. 870 PRINT#4,P(B);C$;M(B)"=";" YOUR ANSER WAS ";YW$(B);" THE CORRECT ANSER IS";
  72. 871 PRINT#4," ";L(B)
  73. 880 NEXTB
  74. 890 PRINT#4:PRINT#4:PRINT#4:CLOSE4
  75. 900 PRINT" DO YOU WANT TO RUN TEST AGAIN Y/N"
  76. 910 GETG$:IFG$=""THEN910
  77. 920 IFG$="N"THEN970
  78. 930 IFG$="Y"THEN950
  79. 940 GOTO910
  80. 950 U=0:B=0
  81. 960 GOTO10
  82. 970 END
  83.